﻿Public Class frmAbout
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=r%2eburke%2eitt%40gmail%2ecom&lc=US&item_name=SysPad%20Software&currency_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted")
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://syspad.codeplex.com/")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://www.r-burke.com/serysoft.php")
    End Sub

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim sFileName As String = ("SysPad.exe")
        'Dim Info As FileVersionInfo

        'Info = FileVersionInfo.GetVersionInfo(sFileName)
        'Dim versionArray As String() = Info.FileVersion.ToString.Split(".")
        'Dim versionShort As String = versionArray(0) & "." & versionArray(1) & "." & versionArray(2)
        'lblVersion.Text = "Version: " & versionShort
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Process.Start("http://www.devexpress.com/Products/Free/WebRegistration60/")
    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Process.Start("http://www.vbforums.com/showpost.php?p=3392137&postcount=1")
    End Sub

    Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
        Process.Start("http://code.google.com/p/fugue-icons-src/")
    End Sub
End Class